First I’ll attach my packages

Make an interactive graph of the iris data:

iris_graph <- ggplot(iris, aes(x = Petal.Width, y = Petal.Length)) +
  geom_point(aes(size = Sepal.Width,
                 color = Species)) +
  labs(x = "Petal width (cm)",
       y = "Petal length (cm)",
       title = "Iris Metrics")

### If color is not related to variable, don't run it in aes

iris_graph

ggplotly(iris_graph)